home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / ELSEIF.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  1.8 KB  |  50 lines
  1. ' ELSEIF.BAS
  2. ' This program demonstrates the use of ELSEIF.
  3.  
  4. CLS
  5.  
  6. PRINT "Welcome to Motion Picture Trivia!"
  7. PRINT "In what year did the film Ben Hur win"
  8. PRINT "the Academy Award for Best Picture?"
  9. PRINT
  10. INPUT "Please enter a year from 1950 to 1959:  ", year%
  11. PRINT
  12.  
  13. IF year% = 1950 THEN
  14.     PRINT "Incorrect.  In 1950, the Academy Award for"
  15.     PRINT "Best Picture went to All About Eve."
  16. ELSEIF year% = 1951 THEN
  17.     PRINT "Incorrect.  In 1951, the Academy Award for"
  18.     PRINT "Best Picture went to An American in Paris."
  19. ELSEIF year% = 1952 THEN
  20.     PRINT "Incorrect.  In 1952, the Academy Award for"
  21.     PRINT "Best Picture went to The Greatest Show on Earth."
  22. ELSEIF year% = 1953 THEN
  23.     PRINT "Incorrect.  In 1953, the Academy Award for"
  24.     PRINT "Best Picture went to From Here to Eternity."
  25. ELSEIF year% = 1954 THEN
  26.     PRINT "Incorrect.  In 1954, the Academy Award for"
  27.     PRINT "Best Picture went to On the Waterfront."
  28. ELSEIF year% = 1955 THEN
  29.     PRINT "Incorrect.  In 1955, the Academy Award for"
  30.     PRINT "Best Picture went to Marty."
  31. ELSEIF year% = 1956 THEN
  32.     PRINT "Incorrect.  In 1956, the Academy Award for"
  33.     PRINT "Best Picture went to Around the World in 80 Days."
  34. ELSEIF year% = 1957 THEN
  35.     PRINT "Incorrect.  In 1957, the Academy Award for"
  36.     PRINT "Best Picture went to The Bridge on the River Kwai."
  37. ELSEIF year% = 1958 THEN
  38.     PRINT "Incorrect.  In 1958, the Academy Award for"
  39.     PRINT "Best Picture went to Gigi."
  40. ELSEIF year% = 1959 THEN
  41.     PRINT "Correct!  Ben Hur, directed by William Wyler,"
  42.     PRINT "won 11 Academy Awards in 1959, including"
  43.     PRINT "Best Picture."
  44. ELSE
  45.     PRINT "You did not enter a number between 1950 and 1959."
  46.     PRINT "Please run the program again and enter an"
  47.     PRINT "appropriate value."
  48. END IF
  49.  
  50.